home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / terminal / term / extras / source / term-source.lha / SoundPanel.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-09-28  |  10.1 KB  |  427 lines
  1. /*
  2. **    SoundPanel.c
  3. **
  4. **    Editing panel for sound configuration
  5. **
  6. **    Copyright © 1990-1995 by Olaf `Olsen' Barthel
  7. **        All Rights Reserved
  8. */
  9.  
  10. #include "termGlobal.h"
  11.  
  12. enum    {    GAD_BELL=1,GAD_CONNECT,GAD_DISCONNECT,GAD_GOOD_TRANSFER,
  13.         GAD_BAD_TRANSFER,GAD_RING,GAD_VOICE,GAD_ERROR,GAD_PRELOAD,GAD_VOLUME,
  14.         GAD_USE,GAD_LOAD,GAD_SAVE,GAD_CANCEL
  15.     };
  16.  
  17. BYTE __regargs
  18. SoundPanel(struct SoundConfig *Config)
  19. {
  20.     struct LayoutHandle *Handle;
  21.  
  22.     STATIC struct SoundConfig __far BackupConfig;
  23.  
  24.     CopyMem(Config,&BackupConfig,sizeof(struct SoundConfig));
  25.  
  26.     if(Handle = LT_CreateHandleTags(Window -> WScreen,
  27.         LH_LocaleHook,    &LocaleHook,
  28.         LH_ExitFlush,    FALSE,
  29.     TAG_DONE))
  30.     {
  31.         struct Window *PanelWindow;
  32.  
  33.         LT_New(Handle,
  34.             LA_Type,    VERTICAL_KIND,
  35.         TAG_DONE);
  36.         {
  37.             LT_New(Handle,
  38.                 LA_Type,    VERTICAL_KIND,
  39.                 LA_LabelID,    MSG_V36_0182,
  40.             TAG_DONE);
  41.             {
  42.                 LT_New(Handle,
  43.                     LA_Type,    VERTICAL_KIND,
  44.                 TAG_DONE);
  45.                 {
  46.                     LT_New(Handle,
  47.                         LA_Type,    STRING_KIND,
  48.                         LA_LabelID,    MSG_SOUNDPANEL_BELL_GAD,
  49.                         LA_STRPTR,    Config -> BellFile,
  50.                         LA_Chars,    30,
  51.                         LA_ID,        GAD_BELL,
  52.                         LAST_Picker,    TRUE,
  53.                         GTST_MaxChars,    MAX_FILENAME_LENGTH - 1,
  54.                     TAG_DONE);
  55.  
  56.                     LT_New(Handle,
  57.                         LA_Type,    STRING_KIND,
  58.                         LA_LabelID,    MSG_SOUNDPANEL_CONNECT_GAD,
  59.                         LA_STRPTR,    Config -> ConnectFile,
  60.                         LA_ID,        GAD_CONNECT,
  61.                         LAST_Picker,    TRUE,
  62.                         GTST_MaxChars,    MAX_FILENAME_LENGTH - 1,
  63.                     TAG_DONE);
  64.  
  65.                     LT_New(Handle,
  66.                         LA_Type,    STRING_KIND,
  67.                         LA_LabelID,    MSG_SOUNDPANEL_DISCONNECT_GAD,
  68.                         LA_STRPTR,    Config -> DisconnectFile,
  69.                         LA_ID,        GAD_DISCONNECT,
  70.                         LAST_Picker,    TRUE,
  71.                         GTST_MaxChars,    MAX_FILENAME_LENGTH - 1,
  72.                     TAG_DONE);
  73.  
  74.                     LT_New(Handle,
  75.                         LA_Type,    STRING_KIND,
  76.                         LA_LabelID,    MSG_SOUNDPANEL_GOOD_TRANSFER_GAD,
  77.                         LA_STRPTR,    Config -> GoodTransferFile,
  78.                         LA_ID,        GAD_GOOD_TRANSFER,
  79.                         LAST_Picker,    TRUE,
  80.                         GTST_MaxChars,    MAX_FILENAME_LENGTH - 1,
  81.                     TAG_DONE);
  82.  
  83.                     LT_New(Handle,
  84.                         LA_Type,    STRING_KIND,
  85.                         LA_LabelID,    MSG_SOUNDPANEL_BAD_TRANSFER_GAD,
  86.                         LA_STRPTR,    Config -> BadTransferFile,
  87.                         LA_ID,        GAD_BAD_TRANSFER,
  88.                         LAST_Picker,    TRUE,
  89.                         GTST_MaxChars,    MAX_FILENAME_LENGTH - 1,
  90.                     TAG_DONE);
  91.  
  92.                     LT_New(Handle,
  93.                         LA_Type,    STRING_KIND,
  94.                         LA_LabelID,    MSG_SOUNDPANEL_RING_GAD,
  95.                         LA_STRPTR,    Config -> RingFile,
  96.                         LA_ID,        GAD_RING,
  97.                         LAST_Picker,    TRUE,
  98.                         GTST_MaxChars,    MAX_FILENAME_LENGTH - 1,
  99.                     TAG_DONE);
  100.  
  101.                     LT_New(Handle,
  102.                         LA_Type,    STRING_KIND,
  103.                         LA_LabelID,    MSG_SOUNDPANEL_VOICE_GAD,
  104.                         LA_STRPTR,    Config -> VoiceFile,
  105.                         LA_ID,        GAD_VOICE,
  106.                         LAST_Picker,    TRUE,
  107.                         GTST_MaxChars,    MAX_FILENAME_LENGTH - 1,
  108.                     TAG_DONE);
  109.  
  110.                     LT_New(Handle,
  111.                         LA_Type,    STRING_KIND,
  112.                         LA_LabelID,    MSG_ERROR_NOTIFICATION_SOUND_TXT,
  113.                         LA_STRPTR,    Config -> ErrorNotifyFile,
  114.                         LA_ID,        GAD_ERROR,
  115.                         LAST_Picker,    TRUE,
  116.                         GTST_MaxChars,    MAX_FILENAME_LENGTH - 1,
  117.                     TAG_DONE);
  118.  
  119.                     LT_EndGroup(Handle);
  120.                 }
  121.  
  122.                 LT_New(Handle,
  123.                     LA_Type,    XBAR_KIND,
  124.                 TAG_DONE);
  125.  
  126.                 LT_New(Handle,
  127.                     LA_Type,    VERTICAL_KIND,
  128.                 TAG_DONE);
  129.                 {
  130.                     LT_New(Handle,
  131.                         LA_Type,        SliderType,
  132.                         LA_LabelID,        MSG_SOUNDPANEL_VOLUME_GAD,
  133.                         LA_BYTE,        &Config -> Volume,
  134.                         LA_ID,            GAD_VOLUME,
  135.                         LA_Chars,        10,
  136.                         GTSL_Min,        0,
  137.                         GTSL_Max,        100,
  138.                         GTSL_LevelFormat,    "%ld%%",
  139.                     TAG_DONE);
  140.  
  141.                     LT_New(Handle,
  142.                         LA_Type,    CHECKBOX_KIND,
  143.                         LA_LabelID,    MSG_SOUNDPANEL_PRELOAD_GAD,
  144.                         LA_BYTE,    &Config -> Preload,
  145.                         LA_ID,        GAD_PRELOAD,
  146.                     TAG_DONE);
  147.  
  148.                     LT_EndGroup(Handle);
  149.                 }
  150.  
  151.                 LT_EndGroup(Handle);
  152.             }
  153.  
  154.             LT_New(Handle,
  155.                 LA_Type,VERTICAL_KIND,
  156.             TAG_DONE);
  157.             {
  158.                 LT_New(Handle,
  159.                     LA_Type,    XBAR_KIND,
  160.                     LAXB_FullSize,    TRUE,
  161.                 TAG_DONE);
  162.  
  163.                 LT_EndGroup(Handle);
  164.             }
  165.  
  166.             LT_New(Handle,LA_Type,HORIZONTAL_KIND,
  167.                 LAGR_SameSize,    TRUE,
  168.                 LAGR_Spread,    TRUE,
  169.             TAG_DONE);
  170.             {
  171.                 LT_New(Handle,
  172.                     LA_Type,    BUTTON_KIND,
  173.                     LA_LabelID,    MSG_GLOBAL_USE_GAD,
  174.                     LA_ID,        GAD_USE,
  175.                     LABT_ReturnKey,    TRUE,
  176.                     LABT_ExtraFat,    TRUE,
  177.                 TAG_DONE);
  178.  
  179.                 LT_New(Handle,
  180.                     LA_Type,    BUTTON_KIND,
  181.                     LA_LabelID,    MSG_GLOBAL_LOAD_GAD,
  182.                     LA_ID,        GAD_LOAD,
  183.                     LABT_ExtraFat,    TRUE,
  184.                 TAG_DONE);
  185.  
  186.                 LT_New(Handle,
  187.                     LA_Type,    BUTTON_KIND,
  188.                     LA_LabelID,    MSG_GLOBAL_SAVE_GAD,
  189.                     LA_ID,        GAD_SAVE,
  190.                     LABT_ExtraFat,    TRUE,
  191.                 TAG_DONE);
  192.  
  193.                 LT_New(Handle,
  194.                     LA_Type,    BUTTON_KIND,
  195.                     LA_LabelID,    MSG_GLOBAL_CANCEL_GAD,
  196.                     LA_ID,        GAD_CANCEL,
  197.                     LABT_EscKey,    TRUE,
  198.                     LABT_ExtraFat,    TRUE,
  199.                 TAG_DONE);
  200.  
  201.                 LT_EndGroup(Handle);
  202.             }
  203.  
  204.             LT_EndGroup(Handle);
  205.         }
  206.  
  207.         if(PanelWindow = LT_Build(Handle,
  208.             LAWN_TitleID,        MSG_SOUNDPANEL_SOUND_PREFERENCES_TXT,
  209.             LAWN_IDCMP,        IDCMP_CLOSEWINDOW,
  210.             LAWN_HelpHook,        &GuideHook,
  211.             LAWN_Parent,        Window,
  212.             WA_DepthGadget,        TRUE,
  213.             WA_CloseGadget,        TRUE,
  214.             WA_DragBar,        TRUE,
  215.             WA_RMBTrap,        TRUE,
  216.             WA_Activate,        TRUE,
  217.             WA_SimpleRefresh,    TRUE,
  218.         TAG_DONE))
  219.         {
  220.             struct IntuiMessage    *Message;
  221.             BOOLEAN             Done = FALSE;
  222.             ULONG             MsgClass;
  223.             UWORD             MsgCode;
  224.             struct Gadget        *MsgGadget;
  225.             STRPTR             DummyChar;
  226.             UBYTE             DummyBuffer[MAX_FILENAME_LENGTH];
  227.             struct FileRequester    *FileRequest;
  228.  
  229.             GuideContext(CONTEXT_SOUND);
  230.  
  231.             PushWindow(PanelWindow);
  232.  
  233.             do
  234.             {
  235.                 if(Wait(PORTMASK(PanelWindow -> UserPort) | SIG_BREAK) & SIG_BREAK)
  236.                 {
  237.                     CopyMem(&BackupConfig,Config,sizeof(struct SoundConfig));
  238.  
  239.                     break;
  240.                 }
  241.  
  242.                 while(Message = (struct IntuiMessage *)LT_GetIMsg(Handle))
  243.                 {
  244.                     MsgClass    = Message -> Class;
  245.                     MsgCode        = Message -> Code;
  246.                     MsgGadget    = (struct Gadget *)Message -> IAddress;
  247.  
  248.                     LT_ReplyIMsg(Message);
  249.  
  250.                     if(MsgClass == IDCMP_CLOSEWINDOW)
  251.                     {
  252.                         CopyMem(&BackupConfig,Config,sizeof(struct SoundConfig));
  253.  
  254.                         Done = TRUE;
  255.                     }
  256.  
  257.                     if(MsgClass == IDCMP_GADGETUP)
  258.                     {
  259.                         switch(MsgGadget -> GadgetID)
  260.                         {
  261.                             case GAD_USE:
  262.  
  263.                                 LT_UpdateStrings(Handle);
  264.  
  265.                                 SoundChanged = memcmp(&BackupConfig,Config,sizeof(struct SoundConfig));
  266.  
  267.                                 Done = TRUE;
  268.                                 break;
  269.  
  270.                             case GAD_CANCEL:
  271.  
  272.                                 CopyMem(&BackupConfig,Config,sizeof(struct SoundConfig));
  273.  
  274.                                 Done = TRUE;
  275.                                 break;
  276.  
  277.                             case GAD_LOAD:
  278.  
  279.                                 SplitFileName(LastSound,&DummyChar,DummyBuffer);
  280.  
  281.                                 LT_LockWindow(PanelWindow);
  282.  
  283.                                 if(FileRequest = GetFile(PanelWindow,LocaleString(MSG_SOUNDPANEL_LOAD_SOUNDS_TXT),DummyBuffer,FilePart(LastSound),DummyBuffer,"#?.prefs",FALSE,FALSE,FALSE,LocaleString(MSG_GLOBAL_LOAD_TXT),TRUE))
  284.                                 {
  285.                                     if(!ReadIFFData(DummyBuffer,Config,sizeof(struct SoundConfig),ID_SOUN))
  286.                                         ShowError(PanelWindow,ERR_LOAD_ERROR,IoErr(),DummyBuffer);
  287.                                     else
  288.                                     {
  289.                                         SoundChanged = FALSE;
  290.  
  291.                                         strcpy(LastSound,DummyBuffer);
  292.  
  293.                                         LT_SetAttributes(Handle,GAD_BELL,
  294.                                             GTST_String,Config -> BellFile,
  295.                                         TAG_DONE);
  296.  
  297.                                         LT_SetAttributes(Handle,GAD_CONNECT,
  298.                                             GTST_String,Config -> ConnectFile,
  299.                                         TAG_DONE);
  300.  
  301.                                         LT_SetAttributes(Handle,GAD_DISCONNECT,
  302.                                             GTST_String,Config -> DisconnectFile,
  303.                                         TAG_DONE);
  304.  
  305.                                         LT_SetAttributes(Handle,GAD_GOOD_TRANSFER,
  306.                                             GTST_String,Config -> GoodTransferFile,
  307.                                         TAG_DONE);
  308.  
  309.                                         LT_SetAttributes(Handle,GAD_BAD_TRANSFER,
  310.                                             GTST_String,Config -> BadTransferFile,
  311.                                         TAG_DONE);
  312.  
  313.                                         LT_SetAttributes(Handle,GAD_RING,
  314.                                             GTST_String,Config -> RingFile,
  315.                                         TAG_DONE);
  316.  
  317.                                         LT_SetAttributes(Handle,GAD_VOICE,
  318.                                             GTST_String,Config -> VoiceFile,
  319.                                         TAG_DONE);
  320.  
  321.                                         LT_SetAttributes(Handle,GAD_ERROR,
  322.                                             GTST_String,Config -> ErrorNotifyFile,
  323.                                         TAG_DONE);
  324.  
  325.                                         LT_SetAttributes(Handle,GAD_PRELOAD,
  326.                                             GTCB_Checked,Config -> Preload,
  327.                                         TAG_DONE);
  328.  
  329.                                         LT_SetAttributes(Handle,GAD_VOLUME,
  330.                                             GTSL_Level,Config -> Volume,
  331.                                         TAG_DONE);
  332.                                     }
  333.  
  334.                                     FreeAslRequest(FileRequest);
  335.                                 }
  336.  
  337.                                 LT_UnlockWindow(PanelWindow);
  338.  
  339.                                 break;
  340.  
  341.                             case GAD_SAVE:
  342.  
  343.                                 LT_UpdateStrings(Handle);
  344.  
  345.                                 SplitFileName(LastSound,&DummyChar,DummyBuffer);
  346.  
  347.                                 LT_LockWindow(PanelWindow);
  348.  
  349.                                 if(FileRequest = GetFile(PanelWindow,LocaleString(MSG_SOUNDPANEL_SAVE_SOUNDS_TXT),DummyBuffer,FilePart(LastSound),DummyBuffer,"#?.prefs",TRUE,FALSE,FALSE,LocaleString(MSG_GLOBAL_SAVE_TXT),TRUE))
  350.                                 {
  351.                                     if(!WriteIFFData(DummyBuffer,Config,sizeof(struct SoundConfig),ID_SOUN))
  352.                                         ShowError(PanelWindow,ERR_SAVE_ERROR,IoErr(),DummyBuffer);
  353.                                     else
  354.                                     {
  355.                                         strcpy(LastSound,DummyBuffer);
  356.  
  357.                                         SoundChanged = FALSE;
  358.                                     }
  359.  
  360.                                     FreeAslRequest(FileRequest);
  361.                                 }
  362.  
  363.                                 LT_UnlockWindow(PanelWindow);
  364.  
  365.                                 break;
  366.  
  367.                             default:
  368.  
  369.                                 if(MsgGadget -> GadgetID >= GAD_BELL && MsgGadget -> GadgetID <= GAD_ERROR)
  370.                                 {
  371.                                     STRPTR Name = (STRPTR)LT_GetAttributes(Handle,MsgGadget -> GadgetID,TAG_DONE);
  372.  
  373.                                     if(MsgCode == '\r' && Name[0])
  374.                                     {
  375.                                         FindFile(PanelWindow,LT_GetString(Handle,MsgGadget -> GadgetID),NULL);
  376.  
  377.                                         if(Config -> Volume)
  378.                                         {
  379.                                             struct SoundInfo *SoundInfo;
  380.  
  381.                                             LT_LockWindow(PanelWindow);
  382.  
  383.                                             if(SoundInfo = LoadSound(Name,FALSE))
  384.                                             {
  385.                                                 PlaySound(SoundInfo);
  386.  
  387.                                                 FreeSound(SoundInfo);
  388.                                             }
  389.  
  390.                                             LT_UnlockWindow(PanelWindow);
  391.                                         }
  392.                                     }
  393.                                 }
  394.  
  395.                                 break;
  396.                         }
  397.                     }
  398.  
  399.                     if(MsgClass == IDCMP_IDCMPUPDATE && MsgGadget -> GadgetID >= GAD_BELL && MsgGadget -> GadgetID <= GAD_ERROR)
  400.                     {
  401.                         SplitFileName((STRPTR)LT_GetAttributes(Handle,MsgGadget -> GadgetID,TAG_DONE),&DummyChar,DummyBuffer);
  402.  
  403.                         if(FileRequest = GetFile(PanelWindow,LocaleString(MSG_SELECT_SOUND_FILE_TXT),DummyBuffer,DummyChar,DummyBuffer,NULL,FALSE,FALSE,FALSE,LocaleString(MSG_GLOBAL_SELECT_TXT),TRUE))
  404.                         {
  405.                             if(DummyBuffer[0])
  406.                                 FindFile(PanelWindow,DummyBuffer,NULL);
  407.  
  408.                             LT_SetAttributes(Handle,MsgGadget -> GadgetID,
  409.                                 GTST_String,DummyBuffer,
  410.                             TAG_DONE);
  411.  
  412.                             FreeAslRequest(FileRequest);
  413.                         }
  414.                     }
  415.                 }
  416.             }
  417.             while(!Done);
  418.  
  419.             PopWindow();
  420.         }
  421.  
  422.         LT_DeleteHandle(Handle);
  423.     }
  424.  
  425.     return((BYTE)memcmp(&BackupConfig,Config,sizeof(struct SoundConfig)));
  426. }
  427.